home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / gfx / show / GS510_data.lha / ghostscript / 5.10 / gs_fonts.ps < prev    next >
Text File  |  1997-12-28  |  28KB  |  913 lines
  1. %    Copyright (C) 1990, 1995, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Font initialization and management code.
  19.  
  20. % Define the default font.
  21. /defaultfontname /Courier def
  22.  
  23. % Define the name of the font map file.
  24. /defaultfontmap (Fontmap) def
  25.  
  26. % ------ End of editable parameters ------ %
  27.  
  28. % If SUBSTFONT is defined, make it the default font.
  29. /SUBSTFONT where { pop /defaultfontname /SUBSTFONT load def } if
  30.  
  31. % Define a reliable way of accessing FontDirectory in systemdict.
  32. /.FontDirectory
  33. { //systemdict /FontDirectory get
  34. } bind odef
  35.  
  36. % If DISKFONTS is true, we load individual CharStrings as they are needed.
  37. % (This is intended primarily for machines with very small memories.)
  38. % In this case, we define another dictionary, parallel to FontDirectory,
  39. % that retains an open file for every font loaded.
  40. /FontFileDirectory 10 dict def
  41.  
  42. % Define a temporary string for local use, since using =string
  43. % interferes with some PostScript programs.
  44. /.fonttempstring 128 string def
  45.  
  46. % Split up a search path into individual directories or files.
  47. /.pathlist        % <path> .pathlist <dir1|file1> ...
  48.  {  { dup length 0 eq { pop exit } if
  49.       .filenamelistseparator search not { exit } if
  50.       exch pop exch
  51.     }
  52.    loop
  53.  } bind def
  54.  
  55. % Load a font name -> font file name map.
  56. userdict /Fontmap .FontDirectory maxlength dict put
  57. /.loadFontmap        % <file> .loadFontmap -
  58.  {        % We would like to simply execute .definefontmap as we read,
  59.         % but we have to maintain backward compatibility with an older
  60.         % specification that makes later entries override earlier.
  61.    50 dict exch
  62.     { dup token not { closefile exit } if
  63.         % stack: <file> fontname
  64.       % This is a hack to get around the absurd habit of MS-DOS editors
  65.       % of adding an EOF character at the end of the file.
  66.       dup (\032) eq { pop closefile exit } if
  67.       1 index token not
  68.        { (Fontmap entry for ) print dup =only
  69.      ( has no associated file or alias name!  Giving up.\n) print flush
  70.      {.loadFontmap} 0 get 1 .quit
  71.        } if
  72.       dup type dup /stringtype eq exch /nametype eq or not
  73.        { (Fontmap entry for ) print 1 index =only
  74.      ( has an invalid file or alias name!  Giving up.\n) print flush
  75.      {.loadFontmap} 0 get 1 .quit
  76.        } if
  77.         % stack: dict file fontname filename|aliasname
  78.         % Read and pop tokens until a semicolon.
  79.        { 2 index token not
  80.       { (Fontmap entry for ) print 1 index =only
  81.         ( ends prematurely!  Giving up.\n) print flush
  82.         {.loadFontmap} 0 get 1 .quit
  83.       } if
  84.      dup /; eq { pop 3 index 3 1 roll .growput exit } if
  85.      pop
  86.        } loop
  87.     } loop
  88.     { .definefontmap } forall
  89.  } bind def
  90. % Add an entry in Fontmap.  We redefine this if the Level 2
  91. % resource machinery is loaded.
  92. /.definefontmap            % <fontname> <file|alias> .definefontmap -
  93.  {        % Since Fontmap is global, make sure the values are storable.
  94.    .currentglobal 3 1 roll true .setglobal
  95.    dup type /stringtype eq
  96.     { dup .gcheck not { dup length string copy } if
  97.     }
  98.    if
  99.    Fontmap 3 -1 roll 2 copy .knownget
  100.     {        % Add an element to the end of the existing value,
  101.         % unless it's the same as the current last element.
  102.       mark exch aload pop counttomark 4 add -1 roll
  103.       2 copy eq { cleartomark pop pop } { ] readonly .growput } ifelse
  104.     }
  105.     {        % Make a new entry.
  106.       mark 4 -1 roll ] readonly .growput
  107.     }
  108.    ifelse .setglobal
  109.  } bind def
  110.  
  111. % Parse a font file just enough to find the FontName or FontType.
  112. /.findfontvalue        % <file> <key> .findfontvalue <value> true
  113.             % <file> <key> .findfontvalue false
  114.             % Closes the file in either case.
  115.  { exch dup read not { -1 } if
  116.    2 copy unread 16#80 eq
  117.     { dup (xxxxxx) readstring pop pop }        % skip .PFB header
  118.    if
  119.         % Stack: key file
  120.     { dup token not { false exit } if        % end of file
  121.       dup /eexec eq { pop false exit } if    % reached eexec section
  122.       dup /Subrs eq { pop false exit } if    % Subrs without eexec
  123.       dup /CharStrings eq { pop false exit } if    % CharStrings without eexec
  124.       dup 3 index eq
  125.        { xcheck not { dup token exit } if }    % found key
  126.        { pop }
  127.       ifelse
  128.     } loop
  129.         % Stack: key file value true   (or)
  130.         % Stack: key file false
  131.    dup { 4 } { 3 } ifelse -2 roll closefile pop
  132.  } bind def
  133. /.findfontname
  134.  { /FontName .findfontvalue
  135.  } bind def
  136.  
  137. % If there is no FONTPATH, try to get one from the environment.
  138. NOFONTPATH { /FONTPATH () def } if
  139. /FONTPATH where
  140.  { pop }
  141.  { /FONTPATH (GS_FONTPATH) getenv not { () } if def }
  142. ifelse
  143. FONTPATH length 0 eq { (%END FONTPATH) .skipeof } if
  144. /FONTPATH [ FONTPATH .pathlist ] def
  145.  
  146. % Scan directories looking for plausible fonts.  "Plausible" means that
  147. % the file begins with %!PS-AdobeFont or %!FontType1, or with \200\001
  148. % followed by four arbitrary bytes and then either of these strings.
  149. % To speed up the search, we skip any file whose name appears in
  150. % the Fontmap (with any extension and upper/lower case variation) already,
  151. % and any file whose extension definitely indicates it is not a font.
  152. %
  153. % NOTE: The current implementation of this procedure is somewhat Unix/DOS-
  154. % specific.  It assumes that '/' and '\' are directory separators, and that
  155. % the part of a file name following the last '.' is the extension.
  156. %
  157. /.lowerstring        % <string> .lowerstring <lowerstring>
  158.  { 0 1 2 index length 1 sub
  159.     { 2 copy get dup 65 ge exch 90 le and
  160.        { 2 copy 2 copy get 32 add put }
  161.      if pop
  162.     }
  163.    for
  164.  } bind def
  165. /.splitfilename        % <dir.../base.extn> .basename <base> <extn>
  166.  {  { (/) search { true } { (\\) search } ifelse
  167.        { pop pop }
  168.        { exit }
  169.       ifelse
  170.     }
  171.    loop
  172.    dup { (.) search { pop pop } { exit } ifelse } loop
  173.    2 copy eq
  174.     { pop () }
  175.     { exch dup length 2 index length 1 add sub 0 exch getinterval exch }
  176.    ifelse
  177. % Following is debugging code.
  178. %   (*** Split => ) print 2 copy exch ==only ( ) print ==only
  179. %   ( ***\n) print flush
  180.  } bind def
  181. /.scanfontdict 1 dict def        % establish a binding
  182. /.scanfontbegin
  183.  {    % Construct the table of all file names already in Fontmap.
  184.    currentglobal true setglobal
  185.    .scanfontdict dup maxlength Fontmap length 2 add .max .setmaxlength
  186.    Fontmap
  187.     { exch pop
  188.        { dup type /stringtype eq
  189.       { .splitfilename pop .fonttempstring copy .lowerstring cvn
  190.         .scanfontdict exch true put
  191.       }
  192.       { pop
  193.       }
  194.      ifelse
  195.        }
  196.       forall
  197.     }
  198.    forall
  199.    setglobal
  200.  } bind def
  201. /.scanfontskip mark
  202.         % Strings are converted to names anyway, so....
  203.   /afm true
  204.   /bat true
  205.   /c true
  206.   /cmd true
  207.   /com true
  208.   /dll true
  209.   /doc true
  210.   /drv true
  211.   /exe true
  212.   /fon true
  213.   /fot true
  214.   /h true
  215.   /o true
  216.   /obj true
  217.   /pfm true
  218.   /pss true        % Adobe Multiple Master font instances
  219.   /txt true
  220. .dicttomark def
  221. /.scan1fontstring 128 string def
  222. /.scanfontheaders [(%!PS-Adobe*) (%!FontType*)] def
  223. 0 .scanfontheaders { length max } forall 6 add    % extra for PFB header
  224. /.scan1fontfirst exch string def
  225. /.scanfontdir        % <dirname> .scanfontdir -
  226.  { currentglobal exch true setglobal
  227.    QUIET not { (Scanning ) print dup print ( for fonts...) print flush } if
  228.    (*) 2 copy .filenamedirseparator
  229.    dup (\\) eq { pop (\\\\) } if    % double \ for pattern match
  230.    exch concatstrings concatstrings
  231.    0 0 0 4 -1 roll    % found scanned files
  232.     {        % stack: <fontcount> <scancount> <filecount> <filename>
  233.       exch 1 add exch                   % increment filecount
  234.       dup .splitfilename .lowerstring
  235.         % stack: <fontcount> <scancount> <filecount+1> <filename>
  236.         %    <BASE>